home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / J-M / MH Power Scripts v1.3.cpt / MH Power Scripts v1.3 / card_5062.txt < prev    next >
Text File  |  1989-02-26  |  2KB  |  91 lines
  1. -- card: 5062 from stack: in.3
  2. -- bmap block id: 9375
  3. -- flags: 4000
  4. -- background id: 2663
  5. -- name: Super Sort
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 2004
  11. -- rect: left=278 top=22 right=63 bottom=317
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 20186 / 20186
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Super Sort
  20. ----- HyperTalk script -----
  21. on copyright
  22.  
  23.   -- Super Delete, Copyright by Mac Help Co., January 1988
  24.   -- by Chris Hostetter, Mac Help Co., 1800 East Market Street
  25.   -- Long Beach, CA  90805, (213) 428-7414
  26.   --      The script for this button is copyrighted and may not be
  27.   --      used without the written permission of the author (above).
  28.  
  29. end copyright
  30.  
  31.  
  32. on mouseUp
  33.   Global TrapFieldName
  34.   -- Uses the script "on MouseWithin" located in the script of the stack
  35.   set the loc of the message box to 20,300
  36.   put "MOVE pointer inside field to Sort by, then press" && "COMMAND KEY down."
  37.   put "Sort" into TrapFieldName
  38.   put empty into LastField
  39. end mouseUp
  40.  
  41.  
  42. -- part 2 (field)
  43. -- low flags: 01
  44. -- high flags: 0004
  45. -- rect: left=320 top=23 right=38 bottom=380
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 0 / 0
  48. -- text alignment: 1
  49. -- font id: 3
  50. -- text size: 9
  51. -- style flags: 0
  52. -- line height: 12
  53. -- part name: See Script
  54. ----- HyperTalk script -----
  55. on mouseUp
  56.   edit script of card button "Super Sort"
  57. end mouseUp
  58.  
  59.  
  60. -- part 3 (button)
  61. -- low flags: 00
  62. -- high flags: 2000
  63. -- rect: left=188 top=61 right=75 bottom=212
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 1
  67. -- font id: 0
  68. -- text size: 12
  69. -- style flags: 0
  70. -- line height: 16
  71. -- part name: New Button
  72. ----- HyperTalk script -----
  73. on mouseUp
  74.   edit script of this stack
  75. end mouseUp
  76.  
  77.  
  78.  
  79. -- part contents for background part 8
  80. ----- text -----
  81. Card 18 of 20
  82.  
  83. -- part contents for background part 9
  84. ----- text -----
  85. SUPER SORT
  86.  
  87. This button uses the script on MouseWithin located in the stack script section.  (see on MouseWithin.)  It allows the user to simply  point at any field they wish to sort by, and press the command key.  Simple.  
  88.  
  89. -- part contents for card part 2
  90. ----- text -----
  91. See Script